“As dificuldades continuam com os programas que 
nos têm sido enviados, ultimamente, pelos leitores. 
A totalidade dos jogos em nosso poder, neste 
momento, apresenta-se em condições de muito 
difícil reprodução o que nos impede de os 
publicarmos e de atribuirmos, este mês, os prémios 
habituais. 

A colaboração dos nossos leitores continua a ser 
muito bem vinda, mas apelamos a um pequeno 
esforço no sentido de os programas ORIGINAIS nos 
serem enviados em cassette e acompanhados de 
uma descrição sucinta do jogo e a necessária 
explicação detalhada das várias funções. 
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ENVIE-NOS OS SEUS PROGRAMAS ORIGINAIS 
E GANHE PREMIOS 


Colabore connosco, enviando-nos o seu programa original, do seguinte modo: 


1. Nome, morada, idade e n.º de telefone. 
2. O programa de préferência em cassette, indicando o tipo e a capacidade do computador. 
3. Uma descrição geral do jogo com as instruções necessárias. 
4. Uma explicação detalhada da função das várias partes do programa. 


Para: JOGOS SORTIDOS - Rua Duque de Palmela, 37, 2.º-Dto. - 1200 LISBOA 
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O programa «MOEDAS» é a versão computorizada de 


um popular jogo inglês de «slot-machines» no qual as 1105 — 1160 Transporta a moeda ao longo do topo do 
moedas escorregam por um plano inclinado, atravessan- écran 

do um labirinto de obstáculos até chegarem a uma 1200-1320 Obriga a moeda a cair até ao primeiro 
das seis grelhas de depósito. 7 obstáculo 
“As grelhas contêm de zero a quatro moedas e o ob- 135- 190 Obriga a moeda a tombar, por entre os 
jectivo é elevar o total até cinco, após o que as cinco obstáculos, até à grelha 
moedas reverterão para o jogador. As moedas ganhas 500 - 560 Faz com que a moeda permaneça na po- 
desta maneira poderão ser conservadas ou reintrodu- sição imediatamente acima da última moe- 
zidas. da da grelha 

O resultado é sobretudo influenciado pela escolha do 604 - 615  Esvazia uma grelha completamente cheia 
melhor momento para fazer escorregar a moeda durante 2000 - 2080 Imprime o quadro de resultados no fim 
o seu movimento no topo do écran. Há, contudo, a do jogo 

possibilidade de encaminhar a moeda noutra direcção, 

mas apenas uma vez. A quarta grelha «engole» as moe- VARIÁVEIS 


das e, por isso, deve ser evitada. 
Para começar tem, à sua disposição, apenas seis moe- 
das sendo essencial ganhar rapidamente algumas moe- 


da “a” a “f” número de moedas nas grelhas 
S. ; 
g número de moedas na grelha para completar 
- LINHAS k decide da direcção no movimento horizontal 
m distância da queda 
3000 - 3050 Define os gráficos | grande perda 
2500 —- 2538 Título w grande lucro 
2540 —- 2580 lIlustra a página de título nw lucros líquidos em cada jogo 
2600 - 2670 Imprime as instruções ow lucros globais 
35 — 65 Desenha o labirinto cr moedas na mão 
75 - 85 Desenha as grelhas (x, y) coordenadas das moedas 
1000 - 1050 Desenha um número aleatório de moedas 
1 PEM ESSE FSFIFIEHFI HIFI III 2 "FOR n=€ TO 21 
*Underlined characters 34 PRINT TNK SIAT ss. 4A7TF 
tare entered in * Ee o Pi dE px FE 
XGRAPHICS mode. * E LP -n 22 THEN PRINT THE 25 
JEJEIEIIEIEIEIEIEIE ICI IEEE IEEE IEEE RT mar ER = ER CRE co EE EE 
2? GO SUR FAHO: BORDER 3: PAPE EM: REM GRAPHICS EF 
RS: ENK sl 9€ MEXT hn 
Ss LET ow=4 2- PLOT INK 3524, 17092: DRAW I 
x q LET a$g="A6B": LET b$="CD" NK 35207,% | 
19 GO SUB 2a94 Ido LET w=0: LET 1=O 
15 CLS 116 PALISE 186 
=ZS FOR ,n=g TO 21: DIM ig(Z6): 120 'GC TO IHOg 
PRINT PAPER 6:4AT n,535/i$8: DIM j$ 139 PRINT AT xsysf PAT x+1,%3 
(2): PRINT PAPER 5S;AT n,O;jÊEJ;AT E É : 
n,390;5$: NEXT n JE IF INKEv$="a” AND 17248 THEN 
48 FOR n=9 TO 192 STEP 52 LET nw=w-1: GO JO Zea 
às CIRCLE 52+n,77,2: BEEP .Oo, 14990 LET Kk=2XC0OS (PIX(INT (RNDX2 
190: CIRCLE- 32+n, 199,2: BEEP .95, a 
2031 CIRCLE- 32+4+n;104L,2 BEEP <B3, 1390 LET usxSZ 
Ra) 151 IF m=2 AND y<23 AND INKEY&= 
Sg NEXT n "E" THEN LET y=y+2! GO TO 168 
S& FOR n=0 TO 160 STEP 52 152 IF m=5 AND y>7 AND INKEY$S=" 
6% CIRCLE 42+n,93,2: BEEP .95, " THEN LET y=y-2: GO TO 169 
49: CIRCLE 48+n,125,2: BEEP .95, 154 IF k>0 AND y=27 THEN LET y 
Za =y-Ki GO TO 1689 | 
6E NEXT ts OS IF k>0 AND y<26é THEN EE 4 
7g PAUSE 160 =y+b 
72 DEF FN t()=INT ((6353S6XPEEK 157 IF k<G AND y=3 THEN LET y= 
23é/4+256XFEEK 2367 3;]+PEEkK 2567Z y-k: GO TO 168 
(EG) 158 IF k<G AND y>4 THEN LET y= 
24 LET ti=EN t() y+k 
- 26 
E 
o. 1 + e. Ras" Ar ; nd “ne R =. º ú: a is RR 


* MOEDAS 


em cada uma das cinco grelhas 


a$ metade superior da moeda 
b$ metade inferior da moeda 


dm 


140 PRINT INK 15AT x,yjas;AT x 


+1L,y5b$ 


165 BEEP .95,29 
166 FOR n=1 TO 199: NEXT n 


179 LET m=m+1 

188 IF m=é THEN GO TO 5998 

198 GO TO 136 

500 IF y=5 THEN LET g=a: LET a 
=atl: GO TO 539 
SgS IF y=9 THEN 
=b+1: GO TO 539 
S16 IF y=13 THEN 
c=c+i: GO TO 559 
S15 IF y=17 THEN 
O 538 

S20 IF y=21 THEN LET 9=e: LET 
e=e+1: GO TO 539 j 
S?2S IF y=25 THEN 
$=4+1 | 
S30 IF 9=4 THEN GO TO 698 

s4g FOR n=9 TO 3-9: PRINT INK 


LET g=b: LET b 
LET géc: LET 


LET 9=6: GO T 


LET *g=f: LET 


15AT 12+2kn,y5" "SAT 15+2%n,y5" 


"SAT 149+2%n, yjassAT 15+2%n,y5d 
É | 

s56 PAUSE 20 
Só NEXT n 


SóS IF y=17 THEM PEINT AT 20,1 


A Dom RAE 12 de ode 12: BEEF 1,0 


Dos Es «= TREM. My FE quo 
tt PRINT IMK 2; FLASH 15AT 1, 


2€;" Press L ”" 


S>2S IF INKEvE="1" THEM PRINT 
THK 24 FLAZA TATO Liar: GO T 
o 1106 

75 LET t=EN t(): IF t>ti+2I9 T 
HEN GO TO 1994 

5728 IF INKEy$="a! AND 1740 THEM 

LET rwu=w-l: GO TO 2008 

seg G0 TO 575 

604 BEEP 1,499 

694 FOR n=g TO.qg 

ódo LET w=u+1d: LET nmnyu=w-l: LET 

cr=nwu+6A | 


508 PRINT AT '12+2%n,;1" "PAT 4 
3+2%n,y5" ": BEEP .1,39: PAUSE 


28 

619 PRINT AT 9,155" " 
61Z PRINT BRIGHT 1; FLASH 15AT 
RS Sei teg a 

615 NEXT n 

618 IF cr<=0 THEN 
626 IF y=5 THEN 
621 IF y=P THEN 
922 IF y=13 THEN 
624 IF y=21 THEM 
625 IF y=25 THEN LET +=9 

6390 PRINT INK 2; FLASH L;AT 1, 
294; " Press 4 " 

635 IF INKEY$="1" THEN 


GO TO 2000 
LET a=O9 
LET b=9 
LET c=g 
LET e=O 


PRINT 


INK 23 FLASH 4$AT £,277"M";- GO T 
O 1109 


MOEDAS 


638 IF INKEY$="a" AMD 1>49 THEN 
"GO TO Z999 

648 GO TO é35 aa 
1999 LET a=INT (RNDXZ): FOR n=1 
TO a: IF a<>9 THEN PRINT INK 1 
AT 23-2%Xn, 5; bS;AT 22-2%n,5;aé: 
BEEP .95,9: NEXT p 

1919 LET b=INT (KNDX3): FOR nel 
TO b: IF b<>9 THEN PRINT ÍNK 1 
JAT 23-2kn, PILSSAT Z2-2kn,9P;ab: 
BEEP .95,19: NEXT n - 
1929 LET c=INT (RMNDX5): FOR nazi 
TO c: IF c<>9 THEN PRINT INK 1 
JAT 23-2%Xn, 13; b$&;AT 22-2Xn,13jas 
: BEEP .95,20: NEXT n 


| 1046 LET e=INT (RNDX5): FOR n=1 
“TO e: IF e<>9 THEN 
'AT 23-2%n,21;b$;AT 22-2%Xn, 21l;as 


PRINT .TNKT 


: BEEP .95,30: NEXT n 
1956 LET 4=INT (RNDX3): FOR n=1 


TO +: IF 4<>0 THEN. PRINT INK 4 
AT Z3-2Xn, Z5S;bE;AT 22-2%n, 255a& 
BEEP .95,40: NEXT n | q 


1060 PRINT INK Z; FLASH 1I5AT 1, 

206;" Press L " 

1965 IF INKEY$="1" THEM PRINT 
INK 25 FLASH 13AT 1,273"M": GO T 

Q 1199 

1062 IF INKEYy$S="a” 
GO TO Z6ga 

1976 GO TO 1065 | 
1106 LET 1=1+16: LET nwu=w-l! LET 
cr=nu+640 - 

1101 PRINT AT 9,155" ' 

1102 PRINT BRIGHT 1; FLASH 15AT 
O, lIsecr 

11904 PRINT INK L:AT O, Fias;AT 1 
13/b$: PAUSE é 

1195 FOR n=3 TO 27 

1118 PRINT-AT GnDo "far Ene 
1115 IF n=27 AND cr<=6 THEN GO 

TO 2Z0ag 

1126 IF n=27 THEN CO TO 19069 
1139 PRINT INK 15AT O,n+1isassAaT”' 
L,n+1;b$ 

1146 PAUSE é 

1154 IF INKEYg="m" AND INT (n/2 

£>5INT ((n-1)/2) THEN LET y=ntd: 
PRINT AT 1,20:". “* 60 T 

O 1200 

1168 NEXT n 

12909 LET x=9: LET m=8 


BND 172340 THEN 


b218 PRINT AT xy” CrSAT stilo gado 


12de BRENT AT BIS « 

1215, PRINT BRIGHT 15 FLASH 15AT 
Ba 1Sscr 

1220 LET x=x+2: LET m=m+1 

12390 PRINT INK 1;5AT x,ys5a6;AT x 


” e . E a + Ta = Ps. = mm » SD a fm OD A, < + y 
54 Edo a Ei ES > US EEE E Rs di 
, o 4. " PRE ias My 


MOEDAS pe 
— 4246 BEEP .95,20: FOR n=1 TO 58: THEN O LET tLSEN tlOT LET. DA=07: 6 2) a 
NEXT n + Q TC 2196 ; 
— 1259 IF INT ((y+1)/4)=INT ((y+3) — Pges IF INKEY$="p" THEN GO TO 2 
— 414) THEN GO TO 1399 199 E | 
1269 IF m=2 THEN GO TO 1399 | 2996 GO TO 2046 
1276 GO TO 1219 2196 PRINT AT 1,35" 
| 1380 PRINT AT x,y!" PSATOX+1,975 de 
Ro» 2195 FOR n=8 TO 8 
— 1319 PLOT INK 3524,159: DRAW 2119 DIM i$(26) “a 
CC NK 35297,8 2126 PRINT PAPER 6;AT 13+n,5;18 
O s20 60 TO“135 | 2139 NEXT n 
— AP9B- PRINT AT 9,155" "AT. t;2 2146 GO TO 75 A, 
g;" vd | | 2500 DIM ig(704): PRINT AT G,9;i. 
1992 PRINT INK 1; FLASH 15;AT 1, $ 
8;" ARCADE CLOSING * | 2520 PLOT 26,144: DRAW O0,-32,11% 
“1994 FOR n=9 TO 499: NEXT n : PI/19: BEEP .95,19 | t 
“2800 PRINT AT 6,155" "SAT 1,2 2523 PAUSE 39 
gr " 2524 PLOT 32,112? DRAW 12,32: BE, 
— 2002 LET ow=0wtnw | EP .95,19: DRAW 12,-32: BEEP .95 
— 20053 IF ow>=9 AND INT ((ow-19)/1 | 519: PLOT 35,120: DRAW 13,9: BEE 
— GO)=INT (ow/199) THEN PRINT IM P .95,19 | 
 K 75 PAPER 15 FLASH I5AT 1,45" W 2526 PLOT 80,136: DRAW -8,-8,3%P 
4 INNINGS SO FAR H"SAT 1,22;0w/16 1/2: -BEEP ,98,190º PLOT. 64,120. D 
Lo gsrg » | | RAW 8,8,3XPI/2: BEEP .95,19 EE 
— 2094 IF ow>=G AND INT ((ow-19)/1 2527 PAUSE 59 | | 
ga) <SINT (ow/199) THEN PRINT LI. 2528 PLOT 88,112: DRAW 0,32: BEE 
, NK 735 PAPER 1; FLASH 155AT 1,495" | P .05,18: PLOT 194,11Z2: DRAW 9,53 á 
 WINNINGS SO FAR H";AT 1,22;0w/ 2: BEEP .95,19: PLOT 88,128: DRA | 
= 1OBI".O" W 16,0: BEEP .85,19 
2006 IF ow<G AND INT (tow-10)/10 2529 PAUSE Sá 
& E)=INT (ow/190) THEN PRINT INK 2539 PLOT 115,128: DRAW 8,9: BEE 
RE 74 PAPER 153 FLASH L;AT 1,75":L0 ag P.go, Id 
RN as soOfraR H"SAT 1,213-0w/1901"09 2351 PAUSE SO 
| u | 2532 PLOT 136,112: DRAW 9,32: BE 
É 2997 IF ow<B AND INT. (tow-19)/10 EP .95, 18: DRAW 16,0: BEEP .95,1 
 QICSINT (ow/1880) THEN PRINT IN g: PLOT 136,128: DRAW 19,0: BEEF 
RR 2: PAPER 1 FLASH LjaT 1,77% E 05,10 | 
y Oss SO FAR H"J;AT 1,2t3-ow/ 19953" 235553 PAUSE SO 
Ea 2534 PLOT 176,112: DRAW -16,8: B 
| gas FOR n=g TO €& EEP .95,12: DRAW 0,32: BEEF .95, 
= Dele DIM iSIzó) 10 Ê 
RO Zo2o FRINT FAPER 2; BRIGHT 1547 25355 PAUSE SO 
13+n,331€ | 2576 PLOT 194, 144: DRAW O, -T2,5% 
9636 HEXT n P1/6: BEEP .0%, 190! DRAW 0,32, 5XF 
 2AIA PRINT TNHK 74 FAPER 2587 14 1/6: BEBF . 65,48 ! 
| «ds "Yor have just spent “j FLASH 253” PALSE 59 
NF. PRIGHT tLi;AT 14,2Z4;I1"p? 2538 PLOT 214,144: DRAW 2,-32: B 
EOSE PRINT INK ”; PAFER Z;AT Ló EEF .65, 10: DFAW 8, 16: FEEP .OS, 
Pr"and have won "| FLASH 1; BEI 10: DRAW 'E,-16: PEEP .95,19: DRA 
BT 17AT tE.ZOm: "pr w 8,32! BEEF .905,10 
DSO TE mut=O THEN PRINT INK > 2340 FOR n=i5 TO Zl 
PAPEF D;AT 18,55 0our net gain 2545 PRINT INK Z;AT n,3S"EE EF 
is “ij INX 75 PDAFER OQ; FLASH 14; EE. GE - ER EE EE” 
ERIGHT 1:AT 1e,2Z;/rWs5 "E" ossg PRINT INK 45AT n,235"EPFAT 
2G7O IF vuig THEM FRINTO INK 7; ns 29; "E" 
DP “FAPER Z;aT 12,5;"vVour net loss 2555 NEXT n 
CC is “"y INK 7! PAPER 9; FLASH 1; B 2558 LET q=5 
“RIGBT !;AT 18,Z3;-mus "e! 2568 FOR n=G TO 3: PRINT INK 1; 
ogea PRINT ' INK 735 PAPER 1; FLAS | AT 12+2%n,05" - "SAT 13+2%n5 95" 
H 1; BRIGHT 1;AT 20,9;" Fress F "SAT 19+2%n, gras; AT 15+2%n, q;DE: 
te vlay again | BEEP .95,q: NEXT nm 
— 2082 IF t>ti+294 AND INKEY$="p" | 2561 FOR n=g TO 2: PRINT INK 15 


2620 


-é the coin to 


O BALÃO ASTRAL 


; — MOEDAS 


AT: 242% sa" <A 43+*2%n,43* 
"SAT 149+2%kn, g;a&; AT 15+2X%n, q) DE: 
BEEP «053,0: “NEXT nm 
2562 FOR n=6 TO 1: PRINT INK 15 
AT 3 2+2%km, q3* "SAT 13+2%n,g)” 
"SAT 14+2%n, g;a&;AT 15+2%n, q; D$: 
BEEP «05,4: - NEXT n 
2563 PRINT INK 15AT 14,g;ag;aAT 
15,40)D5> *BEEP -..93,4 
2565 LET q=q+4: IF q<29 THEN 
TO 2569 . 
2578 IF q=29 THEN PRINT 
1; BRIGHT 15 INK 15AT 19,257 
SS <I> FOR INSTRUCTIONS " 
2575 IF INKEY$="i" THEN. 
[o 4) 2) 
2580 
Zó0O CLS 
2610 PRINT 
CASH-FLOW * 
2615 PRINT AT 53,25"Get five coin 
s in one column to start 
the flow.” 
PRINT AT 6,3;5"You have six 
play with, plu 


GO 


FLASH 
PRE 


GO TO-Z 
GO TO 2579 


INVERSE 1;AT 1,105" 


19p pieces to 


s any wminnings' 
2622 FOR n=8 TO 4909: NEXT n 
2625 PRINT INK 6: PAPER 2Z5;AT 19 


514" CONTROLS " 

2639 PRINT AT 19,13;"L inserts c 
oin"saT 11,153;"M lets it fall" 
2635 PRINT AT 153,35"P and OQ nudg 
right or ,lef 


Imagine-se passeando placidamente, numa tarde de 
domingo, a bordo do seu colorido balão cheio de ar 
quente. Quando o impossível acontece, o seu balão é 
engolido por um Buraco Negro e depositado, do outro 
lado, num sistema solar dominado pelo planeta Garthrog 
onde pousa sem mais acidentes. 

O problema é regressar ao nosso sistema solar, através 
do Buraco Negro. O imperador de Garthrog está dispos- 
to a ajudá-lo mas previne-o de que a sua única hipótese 
de regresso é obter uma boa provisão de Cristais de 
Ainthor. Ora, o campo dos cristais está protegido por 
vários anéis de asteroides havendo uma única passagem 
aberta em cada anel. Se conseguir detectar essa pas- 
sagem terá que negociar com os guardiões das diversas 
passagens e pagar-lhes, a título de portagem, dez barras 
de ouro. O imperador que simpatisou consigo, dar-lhe-á 
dez barras de ouro mas, após o primeiro pagamento, 
terá que ser a sua habilidade a permitir-lhe a obtenção 
das barras de ouro que flutuam no espaço. 

Obtidos os cristais, o imperador encherá o balão com 
um gás especial cujos fumos são, no entanto, tóxicos 
para si. Atenção: a sua morte será inevitável se, por 
duas vezes, ficar sem meios de pagamento. Será o 
adeus definitivo ao seu regresso à Terra. 

Poderá perguntar-se porque razão foram usadas estre- 
las como asteroides, em vez do User Defined Graphics. 
isto é consequência de o SCREENS utilizado para de- 
tectar as colisões não reconhecer UDG's. As estrelas 


t (once only)” 

2640 PRINT AT 177,2 
y2u to abandon a 
YOUr winrings 

ending Cop”. 


» 


"<.87 enables 
game with 
after Sp 


2642 FOR n=& TO AGO: NEXT nm 
2644 DIM 1E(160%: PRINT PAPER é 
AT og TIS 

2644 PRINT INK 154 FLASH IZATE, 
=" ARCADE Ci CSES Ih I MINUTES 
2S48 FOR n=0 TO 400) NEXT 

2654 PRINT: AT 5,25" á 

/ “s ENK<E: FLASH 
AT 5,74 PRESS. 7 TO PLA? 

2.60 TF INKEv$="72" THEM RETURN 
267] GO TO ZóóB 

ZadO RESTOPE : LET r=g 

3616 LET u=PEEK 2767E+256XPEEK 2 
Té7ó 

z020 READ 5: IF ;j=.5 THEM RFETUR 


Ml 
S039 POKE 
Q sazo 


“en, LETment+i: BOA 


SgdO DATA 7,531,653,112,119,228,23 
9,251, 224,248,252, 14,2530,2947,28 
PAP yr RSI ARAL), PP ID, ÓDS Dm 
”y 247 ,2847,231,198,14,252,2948,22 
3 

SOS DATA 187; 1274 1225 18574 4 que 
7 ,127,127, 2994,259,25494,2545239,% 
DA, 294; 294, “2d 

Saza SAVE "cash-flow” LINE 1 


pareceram mais realísticas. 

Outro conjunto de instruções é dado no programa, 
acompanhado ou não de som, e também o grau de 
dificuldade. Este vai de O (tediosamente lento) até 9 
(impossivelmente rápido). Tratando-se de um balão a | 
ar quente, é evidente que não dispõe de travões. Isto 
significa que, desde que tenha optado por uma direcção, 
continuará nela (independentemente de estar ou não 
a pressionar a chave) até que pressione a tecla de 
outra direcção. As chaves; são dadas no programa. 
Bom regresso! 


Variáveis e linha-a-linha 


20 — 90 Imprime o balão e verifica a vitória. 
INKEYS (níveis 1 a 3) 
100 - 410  Movimenta o balão e verifica a colisão 
(níveis 1 a 3) 
2000 - 2330 Imprime o labirinto aleatório para o nível 4 . 
2500 - 2560 Imprime o balão. INKEYS$ (nível 4) 
2600 - 2910 Move o balão e verifica a colisão (nível 4) 
3000 - 3010 Verifica a vitória (nível 4) 
3700 - 3750 Fim da rotina do escalão 
3800 - 3820 Rotina de colisão 
8000 - 8080 Imprime as instruções 
9000 - 9070 Inicializa os procedimentos 
9100 - 9220 Imprime o labirinto (níveis 1 a 3) 
9998 - 9999 User Defined Graphics 


29. 


E a PS TatdÊS 
o 


“" EEP .s,28: 


q Ds PD 


“a - reservado para os números aleatórios 
-d — direcção da viagem 


f, g — reservado para função FOR... NEXT 
gold — número de barras de ouro apanhadas 
pa - nível de dificuldade 


-pause - determina o tempo de pausa entre movimentos 


do balão . 
sc - resultado á 
screen - níveis (1 a 4) 
x y- Xe Y coordenam o balão. 


1 REM FEEL KEEL IEKAEIERRRK 
*Underlined characters 
tare entered in 4 
*GRAPHICS mode. + 
“BSB 


LET SCREEN=4: LET SC=9 


s 
1 6 POFE 23658,8 
“> 


” “SO CUB PPPH 

19 GO SUB 9999 

15 POFE 23658,6 

e PRINT,AT x,y30 INK Fi”? dr 
s6=ºy” THEM  BEEF .908,20 

25 PAUSE pause 

39 IF X=19 AND Y=-6 AND gold-19 
THEN GO TO 3799 


SS IF INKEY$=º"Mº OR INFEYS="9" 

THEN PAUSE 1: PAUSE g 

49 PRINT AT x,y5 INK 35º. 
59 IF INKEYy$="5" OR INKEY$="0" 

THEN GO TO 199 

69 IF INKEY$="6" OR INKEY$S="A" 

THEM GO TO 299 

8 IF INKEY$="7".OR INKEY$="0" 
THEN GO TO 398 | 

89 IF INKEY$S="8" OR INKEYS="P"” 
THEN GO TO 4989 

98 GO TO (d+4)X199-499. 

199 IF ATTR (x,y-1)=6 THEN PRI 
NT AT x,y-17":.º2 LET sc=sc+19: B 
EEP .5,29: 1.ET gold=gold+1 

195 LET SC=SC+1: IF SCREENS (x, 


Y=49 42" ? THEN. GO- TO, 3899 

RIO LEY d=17 LET y=y-1: GO TO 2 
a | 
99 IF ATTR (x+1,5)=6 THEN PRI 
E AT x+)5y3º. 2º LET sErSe+L9T EB 
EEP .5,29: LET gold=golds1:4 

295 LET SC=SC+it IF SCREENS (x+ 
Es) 4>º *“ THEN..,6GD TD J8B98 

RL LET -scesC+*1: LET déZ: FEET -x 
=x+13 GO TO 29 

399 IF ATTR (x-1,y)=6 THEN PRI 
RR CNT. X-1.94" 2 LET. pEFSCtIO! B 
EEP. .5,29: LET gold=gold+1 

SOS LET SC=SC+17 IF SCREENG (x- 
Rev? FHEN “BO TO JEBGA 

SR CEF d=5I EET X=x-12 .60-TH 2 
a 

469 IF ATTR 4x,y+1)=6 THEN PRI 
DRAT Xxsyt47oAoLET sE=SctriB” E 
LET gold=gold+1 


O BALÃO ASTRAL 


49S LET SC=SC+1: IF SCREENS (x, 
y41)<>" "“ THEN GO TO 3899 
419 LET d=4: LET y=y+1: GO TO 2 
a . , ' 
2991 LET d=8 
20AS PAPER 9:. CLS 
Ra 
2918 FOR £=1 TO 22º PRINT "XEXXX 
FEIST EEE E IEEE 7 NE 
pe RR , 
BOA LET -x=11: LET vai 
?2A2A LET a=INT (RNDX3)+1 
2925 PRINT AT x,y5 INK 25"." 
2AZA GO TO aXIGH+299H 
2198 LET y=y+1 - 
2195 IF y>38 THEN GO TO 2599 
2119 GO TO 2929 
2299 LET x=x+1 HA ÉS 
2219 IF x>29 THEN LET x=28 
2228 GO TO 2929 
23904 LET x=x-1, 
2315 IF x<1 THEN, LET x=1 
2339 GO TO 2929 
2599 LET x=11: LET y=1 
2519 PRINT AT x,y3 INK 3By"a! 
2513 PAUSE pause 
2515 IF INKEY$S="9" OR INKEYy$S-"M" 
THEN GO TO 3F99g 
2512 PRINT AT STE 
2518 BEEP .998, 29 
2529 IF INKEY$="S" OR INKEY$-"O" 
THEN GO TO 2999 
2534 IF INKEYS=-"6" OR ÍINKEYS-"AP 
THEM GO TO 2696 
2sS4g IF INKEYS="7" OR INKEYE="0" 
THEM GO TO 2798 
2SSA IF INKEY$-"8" OR INKEYS="P"” 


THEN 60 TO 2899 
2569 GO TO DX1IBB+ 2999 
2604 LET d=6: IF SCREENS (x+1,3)' 
="%” THEN GO TO 3899 
2695 IF SCREENS (xt1,y)="."- THEN 

LET sc=sc+INT (RNDX1ZH) 

2619 LET x=x+1: GO TO 2519 

27890 LET d=7: IF SCREENS (x-1;3) 

="%"'/ THEN GO TO 3899 

2745 IF SCREEN$ (x-1,y)="." THEN 
LET sc=sc+INT (RNDXK1O) 

2719 LET x=x-1: GO TO 2519 

28998 LET d=8: IF SCREENS (x,y+1) 

="%º THEN GO TO 3899 

2895 IF SCREENS (x,y+1)="." THEN 
LET sc=sc+INT (RNDX19) 

2819 LET y=y+1: GO TO 2519 

2999 LET d=9: IF SCREENS (x,y-1) 

=º"%º” THEN GO TO 3899. - | 

2995 IF SCREENS (x,y-1)="." THEN 
LET sc=sSC+INT (RNDX19) 

2919 LET y=y-1: GO TO 2518 

2009 FOR F=9 TO 21; FOR 6=9 TO 3 

1º: IF SCREENS (F,6G)="." THEN PA 


INK 7: BORDE 


do Sô q 
= ” ne no > er, é A 
Eca “ ho É. Rd a 


2 USE '1: PAUSE 9: GO TO 2528 
DD  JO1H NEXT G: NEXT F | 
| 3798 PRINT AT 9,9;: FOR F=1 TO 2 
Es” 2º LET A=INT-(RNDX6)+1: PRINT 1 
€ MNE AS ISS 
HE” 
3719 MEXT F 
3729 INK 2: PAPER 6: PRINT AT 8, 
19; FLASH 1; "VELL DONE !!"SAT tó 


+» 117ºSCORES ";SC: PAUSE 59: LET S 


CREEN=SCREEN+1 

3739 IF SCREEN>4 THEN LET SCREE 

N=1: LET PAUSE=PAUSE-S: IF PAUSE 

€1 THEN' LET' PAUSE=1 

3759 GO SUB 9199: GO TO 29 

3899 INK 2: PAPER 6: PRINT AT 7, 

9; FLASH 1;"YOU CRASHED' "'ºFAT | 

4. 125º SCORE:." 3 sc 

3895 FOR 4=1 TO 2909: MEXT 4 

3819 PRINT AT 21,95" PRESS ANY K 

Er FOR ANOTHER GAME" | 

3829 IF INKEY$="" THEN GO TO sã 

24 

3839 RUN | 

4999 LET gold=19: IF sScreen>1 TH 

EN LET gold=9 

B999 INK 6: PRINT AT 2,9; "Stage: 

lI-Guide the balloon (0) 
round the course while 
avoiding the deadly 
asteroids (X) and your 
own trad) (2)? 

8919 PRINT "“Stage 2-As stage 1 


bd 


but vou must eat all the 
gold bars (B) to pass 
through the | gate.” 
89298 PRINT ""Stage 3-aAs abbve,bu 
t more 
ave moveed in” 
8959 PRINT ""Stage 4-Negotiate y 
our way along 
g passage.. 
the crystals. 
o Press pause 
eted.” | 
B949 PAUSE 1: PAUSE g 
8959 INK 5: PRINT AT 2,9;" 


asteroids h 


the twistin 
Collect all 
(.)to pass. 
when compl 


| Eee 2 or 0 
| DOWN. ...6 or A 
B964G PRINT * LEFT....5 or 
o 
RIGHT...8 or 
Pp 
PAUSE... or 
M é 
| 2976 FOR 4=1 TO 9: PRINT" 
| "s NEX 
Ta 


O BALÃO ASTRAL 


É ue dita ” . Rr o 
EN A o dd do QE o DME 4 a - na o 


Bg89M PAUSE 1: PAUSE 9 


9999 INK 7: PAPER 8: BORDER 9: € 


LS : PRINT'TAB 9; INK 4; "CRAZY B 
ALLOONS";TAB 9; * TT - 
PRINT AT 21,9; Derek Mearns & 

Robert Enright” 
2019 FOR 4=9 TO 49: NEXT + 
9912 PRINT AT 3,8;"Do you want i 
nstructiíons 7º: IF INKEY$="y"º OR 
INKEY$="Y"º THEN GO TO s99g 
9914 IF INKEY$="nº OR INKEY$S="Nº 
THEN GO TO Sale 
9916 GO TO 9912 
9918 FOR 4=1 TO 29: NEXT + 
9929 PRINT AT 3,9;"Do you want s 
ound ? “> TF INKEYS="" THE 
N GO TO 9929 | 
998398 IF INKEY$="y" OR INKEY$="Y" 
THEN LET s$="y": GO TO 9959 
9948 IF INKEY$&="nº OR INKEYS="N" 
THEN LET s$="n": GO TO 9959 
92945 GO TO 9939 - | 
9959 PRINT AT 3,9; "Enter the ski 
11 level (9 TO 9)* | 
99069 INPUT pa: IF pa<g OR pa>9 T 
HEN GO TO 9969 | 
9970 LET pause=(9-pa)x19+1 
2199 RESTORE : INK 7: PAPER 9: CT 
LS ! BORDER 9: IF screen>3 THEN : 


60 TO 2989 | | 
2119 PRINT “JSBBDBBSHHSDDSHHOBHDOE 


JSHHHHHHDHDHHEE SAAE 
SE BBB x+ 
* SBHH 
9129 PRINT “XE 
* E + A E TETE 
* ++ ODE + FI JD 
HH se” | 
9139 PRINT "ax% + 
a O o o O E SM 
o + JBBNB Done 
E + x" | 


92148 PRINT "+ Ps INK DS qm! 3 
INK 25º ++ JSD. + 
* o **Fºs INK 25º DE"; INK 75º + 
+ = + + 
III x 
92159 PRINT "x ++ ++ EE 


* ERR. FE O. XY HIEI. 

FND HO EH HERE ok 
HH e” 

91698 PRINT "+ ++ x HH 
++ HAHA. * ER 

++ + e + * EEE 

t+ ++ *” 

921728 PRINT "“Wt + FEI 


E ME RCE INK 25"] 0º4 TRA 


24 "4% FEIESIEESE EEE EEE + 
*"5 INK 25º Sad"; INK 25 "HS o + 


SAAE E 


| 


E ER da 


em 


* É mena nã NEUSA çO OR * Pordata ds qe p 


- 


sa 
: 
X 


feito aach pia = 


| 
) 
Í 
: 


2189 PRINT "JB BSS HHHO + 
FE E 

92199 LET gold=19 

9299 INK 4: IF SCREEN>1 THEN PR 
INT AT 11,15"Bº;AT 1, GS" EMJAT 2, 
163" BºJAT.2, 123 "BPJAT 6, ÍI4GJ PEGA 
PAIN BIAT 9, LAP éPFRP TOS 


PED TAT 12, 955" BSEAT tas DP LE 
T gold=9 
9218 INK 4: IF screen=3 THEN PR 


INT AT 1B,IS"XºJAT 2,175" XºFAT 3 
IPI RCGAT 6, IPI RPNJAT S,2I"RPGA 
TI, 11FºECJAT 3,265 "*" 


O desvelo com que trata o seu Spectrum, impõe-lhe 
que mantenha a sua casa limpa de aranhas e aranhiços. 
Para isso há que eliminar esses bichos feios. Há três 
andares que devem ser vigiados mas, um idiota qual- 
quer, colocou três minas invisíveis em cada andar, cer- 
tamente por pertencer à Associação dos Amigos das 
Aranhas, Aranhiços e Correlativos. 

Felizmente para si, logo que entra em qualquer dos 
andares, as minas tornam-se visíveis por alguns segun- 
dos o que lhe permitirá evitá-las. Claro que as aranhas, 
sendo tão leves, não fazem deflagrar as minas mesmo 
que as pisem. 


1 REM XXXKXKKXKKKXAKXKKXKKKEXKKKXK 
tUnder lined charactersk 
tare entered in * 
X*GRAPHICS mode. + 
ISBN HH HH 

REM BE SET UP VARIABLES ES 

DIM n&(45): 

LET n$="zx 

x zZ x , 

POKE 23658,9 

DIM m$(39,539) 

60 SUB Sº1LO 

BORDER 1: PAPER 1: 


DIM ht(6) 


ZX =X Z 


TRE 5 L 


REM EEE ORAPHIC INTRO 
CET ei! LET BENS LET EI 
LET 1$€=3: LET hi=9 
FOR i-9 TO 21 

PORN ?<ã TO Bb STEFP E 
IF c=1 THEM . PRINT AT 
NR 29"6º% 000 TD =p 
PRENT AF. FrETFIECIMK 65132 
PRINT AT Ig z$CbP 

DRE”, «005,2 

E MEYT z 
300 LET d-a: 
IF .c-1 THEM 
s19 LET c=1 
32 


IJ he 
q 


Do 
Q 


Nois ty ty 
td 
Q 


E, 
Q 


E o 


289 


LET a-b: 
REF 4 


LET b=di 
60 TO.329 


O BALÃO ASTRAL 


ao - À da e O a NE sea SR QUE po TE mec 
; 


9229 IF screen>2 THEN PRINT AT 
SP PRO GAT 25267" HO JAT O IZ, 22 
“SAT 10,264" FAT ISS ASF RP IAT- 
SB, SI RTIJAT ES, PES 

9989 RETURN 

9999 FOR f=144 TO 145: FOR 9=9 T 
O 7: READ a: POKE USR CHRS$S f+9,a 
& NEXT as NEXT + 

9996 LET d=3 
9997” LET x=19º 
9998 RETURN | 
9999 DATA 16,536,124,56,984,68,68, 
124.,0,0,0,60, 126,2509,0,0 


LET y=2 


AS ARANHAS 


O programa oferece-lhe três vidas e, o facto de limpar 
um quarto, garante-lhe um ponto ganho. Cada aranha 
morta que deitar para o lixo dá-lhe mais um ponto, 
mas se conseguir apanhar as aranhas vivas terá, por 
cada uma, vinte e cinco pontos. Se conseguir pertencer 
ao grupo dos cinco melhores exterminadores de ara- 
nhas, terá como prémio o seu nome impresso no quadro 
de honra dos melhores resultados. 

Coloque cuidadosamente os seus dedos nas chaves 
QZIP para SUBIR, DESCER, ESQUERDA e DIREITA e 
prepare-se para a grande batalha contra esses horro- 
rosos e inofensivos bichinhos. 


Seo MENSNT 4 


339 FOR i=1 TO 17 STEP 2: PRINT 
AT i,115 FLASH 15 PAPER 7; INK 
25º SPIDERS ": NEXT i 

349 FOR i=2 TO 16 STEP 2: PRINT 
AT 1,115 FLASH 1; PAPER 2; INK 
73” SPIDERS ": NEXT 14: PRINT AT 
19,45" KEITH BURTON 19983 " 


Ss PRINT AT 21,05 FLASH 17" 
PRESS ANY KEY TO. PLAY a 


PAUSE 9: GO SUB F4HH 
499 REM ME START OF GAME EE 
419 LET sc=g 
429 LET 14=53 
439 LET 1=1 
sog REM HM SET UP SCREEN EH 
S19 BORDER 9: PAPER 9: INK 6: € 


A 


| 


3 


S13 IF 123 OR 1€1 THEN LET 1=1 
S29 GO SUB 2919+3%1 

S>g FOR i=1 TO 7: BORDER i: BEE 
P .91,1: BEEP .91,29-i: MEXT ii: 
BORDER 9 

Ss89 FOR i=8 TO 19: PRINT AT it 
»iI;m$(i+1): MEXT à 

S99 PRINT AT x,y3 "E" 

699 LET mx1i=IMNT (RNDX19)+1: LET 


- Mmx2=INT (RNDX19)+1: LET mx3=INT 


- (RNDXI9) +17 LET my1i=INT (RNDXIG6 
/+2: LET my2=INT (RNDX16)+2: LET 

my3=IMT (RNDX16)+2 

619 IF m$(mxi,my1)=w& THEN GO 
TO s9g 

629 IF m$(mx2,my2)=w$& THEN GO 
TO 499 

639 IF m$(mx3,my3)=wE THEN GO 
TO 699 

648 PRINT AT mxli,my1l; FLASH 1; 
INK 25" IºGAT mx2,my25" I"SAT mx3, 
my5$º II": PAUSE 25: PRINT AT mxi, 
my15º º“5AT mx2,my25º "SAT mx3,my 
AA,” 

658 PRINT AT 19,9; "U";AT 11,95" 

“SAT 9,2P/ "DºJAT 19,227º0"sAT 1 
1, 223 *CWº SAT 12,225 ºNº 

469 PRINT AT 2,25; INK 2; BRIGH 
T 15 º“SCORE"JAT 6,253"HIGHº;AT 19 
25; "LEVEL "SAT 14,25; "LIVES" 
- 678 PRINT AT 4,25; BRIGHT 1; IM 
K 6ISCJAT B,25Jh(I)IFAT 12,2S$;IJA 


PA es E 


609 LET sx1=19º LET sy1=132 tET 
 Sx2=14:, LET sy2=15: PRINT AT sx 
1l,sy13 INK 55 BRIGHT 13ºHºJAT'sx 
2,5y25 INK 25 BRIGHT 15ºH" 

709 REM HMM MAIN LOOP 

718 INK 2 

“20 LET aS=INKEYS: BEEP .9909,-1 
9: IF a$="i" THEN GO SUB 919 
739 IF a$="p”º" THEN GO SUB 989 
748 IF a$="q"º” THEM GO SUB 1959 
59 IF a$S="zº THEN GO SUB 1129 
769 IF x=i1 AMD (y=1 OR y=29) 7 
HEN GO TO 1219 
778 GO SUB 1319 
789 IF mxi=x AND myl=y THEN GO 
SUB 1799 
”99 IF mx2=x AND my2=y THEN GO 
SUB 1799 
899 IF mx3=x AND my3=y THEN GO 
SUB 1799 
819 PRINT AT 4,255 BRIGHT 15. IN 
K 65;5sc 
829 GO TO 728 


7289 REM UE MOVE YOU EEE 
919 IF m$(x,y-1)=w% THEN GO TO. 


929 IF SCREENS (x,y-1)<>" “ THE 
MN LET sc=sc+t+i: BEEP .91,19 
939 IF y-1<1 THEN RETURN 
948 PRINT AT x,y1" * 
959 LET y=y-1 | 
969 PRINT AT x,y3"E" 
9798 RETURN 
989 IF m$(x,y+1)=w$ THEN GO TO. 
1948 |, 
9998 IF SCREENS (x,yt1)<>" *“ THE 
N LET se=sç+1? BEEP .91,19 
1999 IF y+1>29 THEN RETURN 
1919 PRINT AT x,y5" * 
1929 LET y=y+1 
1939 PRINT AT x,y3"ES 
1949 RETURN 
1959 IF m$(x-1,y7)=w$ THEN GO TO 
1119 
1969 IF SCREENS (x-1,y)<>" " THE 
M LET sc=sc+1: BEEP .91,19 
1979 IF x-1<1 THEN RETURN 
1989 PRINT AT x,y5º * 
19099 LET x=x-1 
1199 PRINT AT x,y3 "E? 
1119 RETURM 
1129 IF m$(x+1,y7)=w$ THEM GO TO 
1189 
1139 IF SCREENS (x+1,53)<>" " THE 
N. LET 5€=8€+1? BEEP .91,1S 
1149 IF x+1>19 THEN RETURN 
1159 PRINT AT x,y5º * 
1169 LET x=x+1 
1179 PRINT AT x,y35 "ES 
1189 RETURN 
1299 REM BEM CHANGE LEVEL EEE 
1219 IF y=1 AND x=11 THEN LET I 
=1+1: IF 1<=3 THEN GO TO 519 
1229 IF y=29 AND x=11 THEN LET 
l=1-1: IF 1>=1 THEN GO TO 519 
1238 IF 1>3 THEN LET 1=1: GO TO 
s1g 


12840 IF h€1 TREN.. ET 1=3º .60 TO 


siga 

1259 GO TO 1219 

1399 REM EEMEM MOVE SPIDERS NEH 
1319 PRINT AT sxi,sy1lj"G" 

1329 PRINT AT sx2,sy2)"€C" 

1339 IF mS(gsxi+1,s5y1i)<>ws AND sx 
1>x THEN LET sxi=sxi+1 

1349 IF m$(sx2+1,5y2)<>w$ AND sx 
2>x THEN LET sx2=sx2+1 - 
1359 IF mS(sxi-1,5y1)<>w$ AND sx 
1<x THEN LET sxl=sx1-1 

1369 IF ma(sx2-1,5y2)<>ws AND sx 


a Di ia À 


PE o” 


. RN. 


E Asa . 


1669 PRINT AT sx1i,sylj INK 45"hHº 
16798 PRINT AT sx2,5y2)3 INK 23ºHº 
1689 RETURN 

1698 STOP 

1799 REM HH EXPLOSION UEM 
1719 OVER 1: FLASH 1: PRINT AT 9 


93 INK 25 PAPER Oss 339219539 999353 


= 
DRA PESSETESISPDDNTDT DI ID E IDD PR FO 


R n=69 TO -49 STEP -2: BEEP .998 
sn: NEXT nº: FLASH 9: OVER 9 
1728 FOR i=1 TO 39: OUT 254,i: N 
ExT 1 
1739 FOR p=-19 TO -39 STEP -2: B 
EEP .1,p: NEXT p 
1749 LET 14=14-1 
1759 IF 14<=8 THEN 
1769 CLS 
17728 FOR n=1 TO S: FOR i=1 TO 7: 
INK 1: BEEP .998,i-S: BEEP .998 
11-19 
1789 PRINT AT 2,953" Es 
a 


GO TO 2999 


E pacas A — - à GEP DEE RO REIS RE mta 
- z : R É 
AS ARANHAS A 
2<x THEN LET sx2=5x2-1 1799 PRINT AT 3,95" EREER 
13729 IF m$(sxi,sy1l+1)<>w$ AND sy Li | 
1>y THEN LET syl=sy1+1 1899 PRINT AT 4,7; "EL = 
1389 IF m$(sx2,5y241)<(>DwW$ AND sy Pee | 
2>y THEN LET sy2=sy2+1 ES ERR AT, Sa 
“A3FP9 IF mE(sx1i,=sy1-1)<>2w$ AND sy E” 
1<y THEN LET syl=syl-1 1829 PRINT AT 6,95"H 
1498 IF m$(sx2,5y2-11<>w$ AND sy —-” o, 
2(y THEN LET sy2=sy2-1 1839 PRINT AT 9,74" EM EEN EEN E 
1419 IF sxi<1i THEN LET sx1=1 nono. 
1420 IF sx2(1 THEN LET sx2=1 1849 PRINT AT 19,7;"H E E E E E 
1439 IF sx1>19 THEN LET sx1=19 nam mu | 
1440 IF sx2>19 THEN LET sx2=19 1859 PRINT AT 11,7;"HEE E EEE 
1459 IF sy2>19 THEM LET sy2=19 LA 
1469 IF sy1>19 THEN LET syl=19 1869 PRINT AT 12,7; EH HER H 
1479 IF sy1<2 THEN LET sy1=2 ow | 
1489 IF sy2<2 THEN LET sy2=2 1879 PRINT AT 15,7; "ER HEM NES 
1499 PRINT AT sx1,sy1j INK 4;"H" man 
ISG99 PRINT AT sx2,5y25 INK 2;"Hº 1889 PRINT AT 17,7;"YOU STEPPED 
IS1O IF (sxi=x AND syl=y) OR (sx ON A MINE*C 
 P=x AND sy2=y) THEN GO TO 1619 1899 PRINT AT 19,11$5"LOSE A LIFE. 
AS29 RETURN E 
1699 REM HEHE CAUGHT A SPIDER EE 1999 NEXT 1 | 
1619 PRINT AT x,y5 BRIGHT 15 FLA 1918 NEXT n 
SH 15 INK 43 PAPER Sj"Hº: LET sc 1929 PRINT AT 29, 195 FLASH E id 
=sc+25: FOR n=19 TO -19 STEP -1: ANGE LEVEL" | 
BEEP .91,n: NEXT n 1938 FOR 1=58 TO -39 STEP -4: BE 
1629 LET sx1=INT (RNDX19)+2: LET EP .995,1: NEXT 1 | 
sx2=INT (RNDX19)+2 1949 LET 1=1I-1: IF 1<1 THEN LET 
1639 LET syt=INT (RNDX16)+2: LET 1=1+2 
sy1=INT (RNDX16)+2 1959 GO TO Sig 
1649 IF m$t(sx1,5y1)=w$ THEN GO 20998 REM EM HALL OF FAME E 
TO 1629 | 29819 IF sc>h(5) THEN GO TO 2299 
1659 IF m$(sx2,5y2)=w$ THEN GO 2929 CLS 
TO 1629 2839 FOR i=1 TO S: IF sc>h(i) TH 


EN FOR t=i TOS: LET h(t+4)=htt 
2 LET nECCC(I+41)HG)-S) TO (Citi 
/H6))=NS(((IKG)-S) TO CiX6)): LE 
T h(i)J=sc! LET n$S((tix6)-5) TO « 
146))=p$: LET i=5 


2948 NEXT 1 | 
2959 FOR i=1 TO 29: PRINT AT 1,4 
; PAPER dt” 

“2 NEXT 1 

2868 FOR i=6 TO 15: PRINT AT 1,7 
; PAPER 15º “EN 
EXT 
2979 PRINT AT 5,7; PAPER 25" 
29898 PRINT AT 1,125 FLASH 15"SPI 
DERS* 

2999 FOR i=9 TO 7: INK 1: PRINT 
AT 3,95"HALL OF FAME": BEEFP . 998 
54% NERT-4 

2199 PAPER 1 

2119 


PRINT AT 5,93 PAPER 2; "NAME 
SCORE " | 


2428 LET 


Efe O. cpa a e 
: - AS ARANHAS 
2129 FOR i=1 TO S: PRINT AT ité, E ER 
P5iFAT 1+6,9PINnS(((iztõg)-S) TO (ix 2439 LET 
6IIFAT Itá, 1Bjh(i): NEXT i FE E 
2139 PRINT AT 13,8;"PRESS O TO 0 24498 LET 
UIT" FE E 
2149 PAPER 9 2aASg LET 
215% PRINT AT 17,73 "PRESS C FOR EFE 
COPY";AT 19,7; "PRESS P TO PLAY" 2469 LET 
2169 PAUSE 9 | FE FE 
2178 IF INKEY$="cC” THEN COPY 2479 LET 
GO TO 2169 “E Es 
2189 IF INKEY$S="qº THEN STOP 2489 LET 
2198 IF INKEYS="p” THEN GO TO 4 FFE Fº 
19 2499 LET 
2199 GO TO 2169 Es 
22909 REM EB WELL DONE ENTER NAMER 200 LET 
2219 CLS FFFrES 
2220 FOR i=z1 TO 4 | - 219 LET 
2239 LET z8=" HIF=E E ms X3Y1" ES 
ret = o H Hi 2528 LET 
Si tim tl God o Ho EB. Bad k 26044 REM 
ad Rd Ma na | 26198 LET 
2249 FOR a=9 TO 15 STEP 5: PRINT ST ER 
AT a,95 INK i+(a/5)jz& | 2420 LET 
2259 NEXT a nº 
2269 NEXT 1 Sexo CET 
2278 FOR X=1, TO 25: COR Y=28 TO nº 
Sa. STEP 18º: BEEP .DDB,Y: BEEP. .9 2448 LET 
Lo Y-S: NEXT Y: NEXT X “a 
2289 POKE 23658,8: INPUT “ENTER 265] LET 
YOUR NAME" JpS: IF LEN p$>6 THEN aa 
LET p$S=ps( TO 6) 2648 LET 
2298 POKE 23658,9º GO TO 2928 | | me 
2399 REM EM SET UP LEVEL 1 EE 2678 LET 
2319 LET mS(1L)="FFEFEFEFEFCFFEFEE n 
RE PES 2689 LET 
2329 LET mS(2)="E na 
Ee 2698 LET 
2339 LET m$(3)="E EFEEFEFEE FEFEE “q a 
ER vs 27989 LET 
2349 LET m$(4)="F F a 
E jo 2718 LET 
2359 LET mS(S)="F E FFFEF FEEFE nm 
E. pés | 27298 LET 
2369 LET ms(6)="F F EF é o o Ne 
E.ÉS 2738 LET 
2378 LET mas(7)="F EF E E “4 4º 
E Es X 2748 LET 
AO LET At) PF. ET FEFEZEEE T Rg 
Er 2759 LET 
2 CET NRP) TT: EF ECrEgREC E no Rg º 
SR oa 2769 LET 
2499 LET m$S(19)="F E E EE 4% 4 
E E E 2778 LET 
2419 LET m$(11)=" 4º 
ea 2789 LET 
mS(12)="E E E FEEFEE “º 


mS(13)="F E 


Tn 
T 
n 
mn 
1 
mn 
1 


—— — — — e — 


mS(149)="F E E 


mS(IS)="F EF E 
mS(16)="E E EEFEE FrEE 
mS(17)=ºE E 

mS(18)="E FEFFEEE EEE 


ms (19)="F 


x=11: LET y=2: PRINT AT 


w$="Eº: RETURN 


EM SET UP LEVEL 2 mm. 
ME (1) =" a 


m$(2)="", ms “Aa, 
m$(3)="4, 
m$(4)="2, ERR Ral 
mS(S)="4, “4 s, 
m$E(6)="8, “4, E 
m$(7)="8, 
m$s(8)="R, n - Mare, 
m$&(9)="8, 24," “ 
ns (19)*"2, ", ", » “ 


mS(11)=" "4 a 


m$(12)="4 4 4 


m$(13)="8 4 E a 
m$(14)="a, 
m$(15)="2, “a > 
mS(16)=º"4 4 4 
m$(17)="2, 2, 


RsaRa 


ms (18)="4, 


a O A a A pi ct e is di ii o ii A cd É ci cd a A 


2798 LET 
a 
2899 LET 
asas al 
2819 LET 
ts 3 ES 
28628 LET 
2999 REM 
2919 LET 
0000º 


2929 LET 


oO" 
2939 LET 
o 0º 
2948 LET 
[8 Ra 


2959 LET 


00 o" 


29690 LET 
0” 
2978 LET 

000º 
2989 LET 
o” 
2990 LET 
E 0º 
SOM LET 
O .,60? 
3019 LET 
o .* 
3929 LET 
0º 
SIM LET 
000 O* 


3soO4M LET 


o” 
SO5H LET 
00 00º 
3946 LET 
o" 
3978 LET 
O O" 
sasg LET 


000 0º 


3999 LET 
0” 
sS199 LET 


x, y5 "ES 
SID LET 


00000º 


3129 LET 
32909 REM 


m6(19)=" 2 1,8, "o 
ms (29) =" “Aa aa 
PRINT AT 


x=11: LET y=2: 


w6="m,": RETURN 
EM SET UP LEVEL 3 EES 
nm (1)="0000000000000000 
m$(2)=*0 O 00 
m$(3)="0 O O 000000000 


m$s(4)="0 


ms (5)="0 00000000 O 000 


de sn ho o o 
m$(72)="0 000 00 O au 
m$(8)="0 0 O 00 o O 
m$(9)="0 0 0 000 
m$(19)="0 O 000 
m$(11)="0 O 000 O O 
m$(12)="0 o o 
m$(13)="00000 00 0 O 00 
m$(14)="0 o 

ms (15)="0 000 0000 0000 
m$S(16)="0 00 00 o 
m$(17)="0 00 O 00 
m8(18)="0 O 000 00000 
00000 


m$s(19)="0 


x=11: LET y=2: PRINT AT 


ms (29) =" 000000000000000 


w$8="0": RETURN 
mm SET UP UDG EH 


3219 RESTORE 3299 


3229 FOR 


t=1 TO 53 


s239 READ as 


3248 FOR 


i=8 TO 7 


3259 READ a 


36 


« 


AS ARANHAS 


3269 POKE USR a$S+i,a 

32729 NEXT ií 

3289 NEXT t 

<299 DATA "e',56,16,124,186,56,5 

6,68,68 

J399 DATA "€",255,195,189,173,18 
1, 189,195,255 

J319 DATA "9",9,9,119,34,255,34, 
119,9 

s329 DATA "h",9,9,24,69,66,99,16 

s, 163 

3339 DATA “17,0,0,24,69,60,126,9 
59 

3349 RETURN 

x499 REM EM INSTRUCTIONS NEH 

3419 LET z$="You are the caretak 
er of an old house. The house ha 

« three levels you may move 
up and down the levels when eve 
r you wish bygoing to the staírw 
ays on each level. You job is t 
o find and ki11 any spíders yo 
u can see The spíders are alw 
ays spínning webs mhich you must 
also clean up. 

BEWARE on each lev 
el three mines have been pla 
nted they won't harm the spid 
ers but they wíll kill vou. 

You will be given a 
quick look at where the mines 
are each tímeyou change levels." 


3426 BORDER 1: PAPER 1: INK 6: € 
LS 

439 PRINT AT 1,115 FLASH 15 PAP 
ER 2) "SPIDERS" 

3449 PRINT AT 2,9 

459 FOR 1=1 TO LEN z$: IF z$ti) 
=" * THEN PRINT" “5: NEXT í 
3485 PRINT z8(1)5: BEEP .999,19: 


NEXT ii 
3469 PRINT AT 21,45/"PRESS ANY KE 
Y": PAUSE 9: BEEP 1,9 
479 CLS : PRINT AT- 9,195 FLASH 
15 " INSTRUCTIONS'ºJAT 2,25 FLASH 9 
|ºI left" JAT 4,23"ºP right'jAT 6, 
2/"0 up"jAT 8,21"Z down"jAT 19,2 
"E You"sjAT 12,215 1 point'"jaAT 
14,25º"H 25 points"jAT 16,23º1 
mine - lose a lífe";aAT 29,2;"PRE 
SS ANY KEY WHEN READY": PAUSE 9 
3489 RETURN 


99998 REM PROGRAM LENGTH 12.9 
dies ME: 144% 
SAVE "SPIDERS" 
SPIDERS": STOP 


LINE. 1º: VERIFY * 


" "P999 REM Z99 SAGG 19 499 


“A MASMORRA 
DOS DUENDES 


O objectivo do jogo é tirar todo o tesouro da masmorra 
do castelo sem ser apanhado pelos duendes. O tesouro 
deve ser recolhido por ordem, começando pelo nível 
mais elevado, e depois trazido para baixo, para a porta 
verde do cofre de segurança. 


Para apanhar o tesouro terá apenas que mover o seu 


homem para cima, até ao tesouro. Logo que ele lá 
chegue, o programa indicará automaticamente que parte 
do tesouro foi recolhida. 

Tem três vidas ao seu dispor, mas se for apanhado 
por um duende quando estiver na posse de uma peça 
do tesouro, será imediatamente morto e o jogo termina. 
Por vezes aparecerá um tesouro que não pode ser 
recolhido e que impedirá a progressão do seu homem 
ao longo da galeria. Isto não constitui grande problema 
dado que dispõe de cinco paus de dinamite que podem 
ser usados para abrir um buraco no chão (se estiver 
no primeiro nível, claro que o buraco terá que ser 
aberto no tecto). Para deflagrar o dinamite leve o seu 
homem até junto do tesouro que impede a progressão 
e accione a chave “O”. O chão (ou o tecto) fará um 
clarão vermelho e abrir-se-á um buraco por onde o 
homem passará. 

As instruções e detalhes do controle, ou seja, chaves 
para ESQUERDA e DIREITA, para CIMA e para BAIXO 
e o uso da chave “O” serão dadas no início do programa. 
A situação será dada ao longo do jogo, ou seja, a 
parte do tesouro já recolhida, o número de paus de 
dinamite e as vidas ainda disponíveis. 

Para ganhar o jogo terá que usar todo o dinamite e 
manter os duendes afastados da área vizinha da porta 
verde, de maneira a dar tempo ao homem para ir buscar 
o tesouro lá acima e regressar ao cofre-forte... (infeliz- 
mente, os duendes são muito rápidos). 

O programa não funciona no Spectrum 16K na sua 
forma completa. No entanto, se apagar o título, as 
instruções e os detalhes do controle (linhas 7000 = 
7210 inclusive), o programa funciona. A linha 30 deve 
ser mudada para: GOSUB 9000: CLS. 

IMPORTANTE: Quando toda a listagem do programa 


estiver introduzida e confirmada, pode ser conservada 
usando o comando GOTO 9990. A listagem será SAVEd 
no modo de “auto-run”, seguido de um pedido para 
rebobinar a fita para verificação. 


Detalhes da listagem 


10 — 18 Inicialização 

100 - 310 Rotina principal 

900 - 960 Variáveis: 

1000 —- 1060 Tire o tesouro 

2000 - 2040 Tesouro no cofre ' 
3000 - 3040 Vida perdida 

3500 - 3540 Som 

4000 - 4070 Use dinamite 
- 4500 —- 4570 Explosão 

5000 - 5050 Outro jogo 

6000 - 6060 Jogo ganho 

7000 - 7060 Título 

7070 —- 7140 Instruções 

7150 —- 7210 Controles do jogo 

8000 - 8150 Écran 

9000 - 9060 UDG 

9990 - 9993 Conservação (SAVE) e verificação 


Detalhes gráficos 


Linha 80 -—- Gráfico G, H, 1, J, K, LM, N 
Linha 180 - Gráfico C 

Linha 270 - Gráfico 8 (x 3) 

Linha 280 - Gráfico D 


Linhas 3010, 3030, 4060 —- Gráfico 8 

Linhas 4020, 4030, 4040, 4050, 8020 — Gráfico AA 
Linha 7170 -— Inverte vídeo 5, 6, 7, 8,0 

Linha 7180 — Gráfico C 
Linha 8070 — Gráfico 
Linha 8080 - Gráfico 
Linha 8100 - Gráfico 


F (x 30) 
E 
E 
Linha 8120 - Gráfico B 
O 
G, 


(x 32) 


Linha 8130 - Gráfico 
Linha 8140 - Gráfico 


(x 5), Gráfico C (x 3) 
H, 1, JK LM, N 


17 DE MARÇO * ABERTURA DO AMSTRAD CLUB 
* INTERESSADOS PODEM FAZER PEDIDO DE INSCRI- 
ÇÃO * HORÁRIO: 14H ÀS 22H DE 2.º A SÁBADO 
* GRANDES VANTAGENS NA AQUISIÇÃO DE COM- 
PUTADORES * PERIFÉRICOS * SOFTWARE * LIVROS 
* REVISTAS * CURSOS * ACTUALIZAÇÕES * EX: 
— AMSTRAD PC W 8256 — 139000$00; 


— AMSTRAD PC W 8512 — 175000$00 


AMSTRAD CLUB 


Praça Dr. Nuno Pinheiro Torres, 4-C (Benfica) 


Hot Line: 714.31.59 


1500 LISBOA 


A MASMORRA DOS DUENDES 


e - 
E ET: 
é vo RS 
mm 0. mo 
ee a 
= TE 
: » dps 
da “e = 
ao L 
Er = 
b % nad 
E Er 
O da 0 bo 
bo ab Cr 
+ [ao 
ss» te 
Le a 
cr a o Sie 
= tea 
E E 
as e = 
Tr La, 
-s e. 
er o 
Lx bph 
A PT IPA IE ASI IE e 5. 
A LIVES 
1 REM JESSE E RE OR ATTR (y,x-1)=7 AND NOT k THE 
tUnderl tned characters+ N BEEP .1,39: GO SUB 1999 
tare entered in * 178 IF ATTR (y,x+1)=32 AND k TH 
*GRAPHICS mode. + EN GO SUB 3399: GO SUB 2999- 
IES E E EE RR 189 PRINT AT ywy,x5 FLASH k$ INK 
6;"C": BEEP .9093,39 
ig PAPER 9: RORDER 9º -TNK Xº € 199 FOR z=1 TO 3 
LS 290 PRINT AT aq(z),p(tz)s” * 
20 PRINT AT 11,535 PAPER 15 INK 219 LET p(z)=p(z)+1 
74 TLASH 15º Please wait a mome 228 IF ATTR (qgqtz),p(z))=7 THEN 
Re <P LET ptz)=p(z)+i 
"A GO SUB 9998:. GN SUB 7999 238 IF aq(z)>y AND ATTR (gq(z)-1, 
48 DIM p(3): DIM q(3) p(z))<>5 THEN LET q(z)=gqtz)-l 
68 GO SUB 8999: GO SUR 999 246 IF q(z)<y AND ATTR (q(z)+t, 
78 LET d=5: LET k=9: LET 1=5: p(z))<>5 THEN LET q(z)=g(72)+1 
LET t=1 259 IF ATTR (g(z),p(tz))=4 THEN, 
89 LET 5j$="GhIJtLhmhnº LET p(z).=-p(z) 
199 REM Move man & goblins 2690 IF ATTR (gtz),p(z))=é THEN 
119 LET a=x: LET b=y GO SUB 3598: GO SUB J999: GO TO 
129 LET x=x-(INKEY$="5" AND x>1 119 
AND ATTR (y,x-1)<>5 AND ATTR (y 278 IF ATTR (q(z),p(z))=1534 THE 
4X-1)<>57)+(INKEYS="8" AND x<3H A N GO SUB 3599: PRINT AT 21,728; 
ND ATTR (y,x+1)<>5 AND ATTR (y,x INK 27º": GO SUB 390909 
+1)<5>7) 2898 PRINT AT q(z),p(z); INK 457 
139 LET y=y-(INKEY$S="7" AND y>1 ns 
AND ATTR (y-1,x)<>5)+(INKEYS="6 2990 IF p(t(z)=-1 OR p(z)=354 THEN 
* AND y<19 AND ATTR (y+1,x)<>5) LET .p(z)=-p(z) 
149 IF INKEYS="9" THEN «0 SUB s98 NEXT z 
ago É 31g G0 TO 119 
159 IF a<>x OR b<>y THEN PRINT 9998 REM Variíiables 
AT b,as” * 219 FOR q=1 TO 3 


169 IF ATTR (y,xt+1)=7 AND NOT k 928 LET pt(q)=1 


38 


A dl 
a 


a 


939 


LET q(g)=12+9%2 


9498 NEXT q 
9598 LET x=398: LET y=2 
9269 RETURN ; 
1iZ0MM REM Take treasure 
1919 FOR c=1 TO 8 
1928 IF t=c AND y=2+2%c THEN GO 
TO 1959 
1939 NEXT c 


1948 IF NOT k. THEN GO SUB 4998: 
GO TO 1966 

1959 LET k=1: PRINT AT y,x-15" " 
FAT yox+15º a 


1949 
2000 
2819 


RE TURN 
REM Treasure at door 


PRINT AT A,8+(+t42); PAPER 2 


; INK 65;$(t) 


29029 
2039 
2049 
SMA 
SB1H 


+ INK 25"H" 


39020 


LET k=9: LET t=t+1 

IF t=9 THEN GO TO 6899 
RETURN - 

REM Loose life 

LET 1=1-1: PRINT AT 21,28+1 


IF NOT k THEN: 


Jsptz)g” “2: PRINT AT q(i),p(ios” 


FrRaT 
SOIA 


PRINT AT q(2),p(2);” ": PRIN 


q(3),Pp(3);” ": GO SUR 999 
IF 1=9 THEN PRINT AT 21,29 


OS INK 25º8": GO SUB 3599: GO TO 


5899 


SOAM. 


3599 
3519 
3528 
3539 
3549 
4299 
4g19 


RE TURN 

REM Sound 

FOR s=59 TO BG STEP -2 

BEEP .91,s 

NEXT s 

RETURN 

REM Use dynamite 

IF INKEY$<>"9" OR d=G THEN 


GO TO 4979 


4929 


ATTR (y,x+1)=7 THEN 


IF INKEY$="9" AND y<>18 AND 
PRINT AT & 


+1,x-23 FLASH 1; INK 25"AA": GO 
SUB 4599: PRINT AT y+1,x-2; FLAS 
H 97º *“: LET d=d-1: PRINT AT 21 
s1B+d; INK 25º" 

4034 IF INKEY$G="9" AND y<>18 AND 


ATTR (y,x-1)=7 THEN 


PRINT AT xy 


+1,x+15 FLASH 1; INK 2; "Cor: GO 
SUB 4599: PRINT AT y+1,x+1; FLAS 
H 9;” ": LET d=d-1: PRINT AT 21 
s19+d; INK Z5 “E 

4946 IF INKEY$S="9" AND y=18 AND 


ATTR 


to x-8J FLASH Lj. INK 25"09º: 60 S 


(y5x+1)=7 THEN PRINT AT y- 


UB 4599: PRINT AT y-1,x-2; FLASH 


g;" 


1g+ds 


4954 


"4 LET 'd=d-1:2 PRINT AT 21, 
INK 25" 8". 
IF INKEY$="G" AND y=18 AND 


PRINT AT qt(z 


pa à FS E A A MASMORRA DOS DUENDES 


ATTR (y,x-1)=7 THEN PRINT AT y- 
1,x+13 FLASH 13 INK 2;"AW": GO S 
UB 4599: PRINT AT y-1,x+15. FLASH 
g;" "2: LET d=d-1: PRINT AT 21, 
19+d; INK 25" 

4968 IF d=9 THEN PRINT AT 21,19 
; FLASH 1; PAPER 2; INK 6; "GONE! 
4976 RETURN 

4598 REM Explosion | 

4519 FOR e=8 TO 59 STEP 6 

4528 BEEP .995,e 

4539 NEXT e 

4548 FOR e=58 TO 29 STEP -1 

4559 BEEFP .995,e 

4569 NEXT e 

4578 RETURN 

Sg994 REM Another Game?” 

5919 INPUT * Another Game? 
(y/n) "5 LINE z$ 

S929 IF z&="yº OR z$="Y” THEN C 
LS ! 60 TO.498 

S939 IF z&="n" OR z$="Nº THEN C 

LS : GO TO 5959 
5948 IF z&<>"y” OR z$C>"Y” OR 25 


€C)"nº. OR zS<>)"Nº THEN .GO TO Sai 
g 
9959 PRINT ** INK RNDk6; BRIGHT 


ISTAB RNDX155; "OK, BYE FOR NOW'": 
POKE 23692,255: GO TO 5959 

6904 REM Win game 

6918 CLS 

6928 PRINT AT 19,19; BRIGHT 1; T 

NK INT (RNDK6) +15; "WELL DONE !! 


You have all the trea 
sure” 
6938 LET w=INT (RNDXK5S9) 
6948 BEEP .B1,w 
69598 TF INKEYE="" THEN 
23 
69698 STOP 
7808 REM Game title 
70190 PAPER 9: BORDER G: CLS 
7920 PRINT HO;AT 1,9; INK 75" Pr 
ess any key for instructions", 
7039 PRINT AT 3,9; INK INT (RND+X 


GO TO 64 


+ 1 CS E MEJERN E 
& um um E E 
ES E Um ama 
EEE EM 
EEE E HE H 
o Us MH E 
“MEME TÃAÃA: 
nas mm = E 


nd 
o 


A MASMORRA DOS DUENDES 


7048 PRINT AT 19,165 INK INT (RN 
DX6)+15º by Peter Watson": BEFP 
«91, INT (RNDXKS9) 

7858 IF INKEY$S="" THEN GO TO 78 
x a 

“Roo PAUSE GB) BEEP .1,30º CES 
78478 REM Instructions" 
7888 PRINT AT 9,4; INK 45 BRIGHT 
SE FM TROTE OND 
7898 PRINT AT 2,9; INK 7;"Your q 
uest is to retrieve all the tr 
easure from the dungeon.* 

7198 PRINT AT 5,9; INK 7;"Treasu 
re must be collected in order 
(highest level first) and taken 
to the green door.” 

7119 PRINT AT 9,95 INK 7;"Any it 


em not due for collection wiii db 
lock your path (but not the so 
blins''!). However, 1f adjace 


nt to such a treasure, youcan ts 
e your dynamite to blast holes 
in the floor (or ceiling 1f on 
the bottom level).”* 
7129 PRINT AT 172,95 INK 75$"ºYou h 


ave three lives - but 1 caugh 
t by a goblin mhilst in posse 
sion of treasure it'c insta 


nt death!!!” 

71394 PRINT H9;AT 1,95 PAPER 6; 1 

NK 25; FLASH 15º Press any key + 

e contralsa.a " 

7148 PAUSE 9: BEEP .1,39: CLS 

7159 REM Game controls 

2169 PRINT AT 3,8; INK 45 BRIGHT 
Se ONT RO: ST?” 

7178 PRINT AT 72,15 INK 725º5 

6 Ed 8 a 


left d 
own up right dynamite” 
7189 PRINT AT 13,4; FLASH 15 INK 
6; "C";AT 13,8; FLASH 95 INK 7;" 
treasure collected” 
7198 PRINT AT 21,3; PAPER 2: INK 
63 FLASH 13" Press any key to p 
Lay... º 
7288 PAUSE 9: CLS : BEEP .1,39 
7218 RETURN 
8999 REM Screen construction 
8919 FOR a=1 TO 39 STEP 2: FOR b 
4 TO 19 STEP 2 


40 


8929 PRINT AT b,aj INK Sj"an": EB 
EEP .995, (b+a) | 

88939 NEXT b: NEXT a 

8848 FOR c=3 TO 17 STEP 2 

8959 PRINT AT c,4+INT (RNDXS)XS; 


e ” 
, 


8969 NEXT c 


8978 PRINT AT 1,15 INK 5; "FEFEFE 


EREGRFEEFFEPFFEFECEPEFRE”. 

8988 PRINT AT 29,9; PAPER 7; INK 
DI PERBEEEEEEFEECEEEECEFEEFRECECECEEEFE 
ERES 

8998 FOR d=1 TO 19 

8199 PRINT AT d,9; PAPER 7; INK 
FI "EPJAT d,313 PAPER 25 INK 3$ºE 
": BEEP .995, (59-d) | 
8119 NEXT-d 

81298 PRINT AT 2,31; PAPER 4; INK 
BG; "BE";AT 9,9; PAPER 2; INK 65" 
TREASURE . 


8139 PRINT AT 21,9; PAPER 25 INK: 


6;" DYNAMITE 00C06 
els. * 


LIVES - 


8149 PRINT AT 4,75 INK 7;"="sAT 


6; 28% "IN DIC ETA OGIA PP 
Iº;AT 19,12; INK 2; !º3AT 12,273 
INK 2; "E"JAT 14,74 INK 25" "sAT 
16,12; INK 2; "U"sAT 18,22; INK 

28 ad 

8159 RETURN 

9997 REM Graphics 

99819 FOR n=1 TO 15: READ ag 

9928 FOR p=8 TO 7: READ q: POKE 
USR ag+p,qa 

99398 NEXT p: NEXT n 

92948 DATA "A",255,255,219,228,25 
,164,8,9,"B",255,129,189,189,129 
1461, 129,128, "C*,298,298;136,12642 
2:00, 20,84 ;*D",57,57, 17,255, 185, 
2 PA SO, “ES, 3I4, 285, 136, 255,34 
, 258, 136,255,ºF",255, 255,255,69, 
24,176,99,24 

9959 DATA "G",8,8,278,26,29,26,28 
19,"H",8,29,42,69,42,29,8,0,"I", 
1,26,4,19,19,32,64,8,"]",16,94,5 
6,254,56,84,16,0,"Kº,0,2,5,253,6 
92,229,162,9,"L",16,68,40, 139,56, 
186,56,9,"M",9,16,4,18,36,82,8,9 
;"N",24,189,153,99,126,99,126,9, 
"0",9,6,24,56,112,724,192,8 

2869 RETURN 

"998 CLS : SAVE “aggbrin”* LINE 1 
9991 PRINT AT 19,9; INK 7;"Re-wni 
nd tape then run to VERIFY.” 
9992 VERIFY “gabl in" 

9993 PRINT AT 19,95 INK 75" 


Tape Verified. ET 
OP 


